palate 0.3.8

File type detection combining tft and hyperpolyglot
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

	ORG	0000h
	SJMP	START
	ORG	0003h
	LCALL	INT0_ISR
	RETI
	ORG	000Bh
	LCALL	T0_ISR
	RETI
	ORG	0013h
	LCALL	INT1_ISR
	RETI
	ORG	001Bh
	LCALL	T1_ISR
	RETI
	ORG	0023h
	LCALL	UART_ISR
	RETI
	ORG	0030h
START:
	MOV	A,#11111110b
	SETB	IT0	; Set External Interrupt 0 to be falling edge triggered
	SETB	EX0	; Enable External Interrut 0
	SETB	EA	; Enable Interrupt
LEFT:			
	CJNE	A,#01111111b,LOOP1
	JMP	RIGHT
LOOP1:
	MOV	P1,A
	RL	A	
	LCALL	DELAY
	SJMP	LEFT	
RIGHT:
	CJNE	A,#11111110b,LOOP2
	JMP	LEFT
LOOP2:
	MOV	P1,A
	RR	A	
	LCALL	DELAY
	SJMP	RIGHT
	
INT0_ISR:
	MOV	R1,#3
FLASH:
	MOV	P1,#00h
	LCALL	DELAY
	MOV	P1,#0FFh
	LCALL	DELAY
	DJNZ	R1,FLASH
	RET
T0_ISR:
	RET
INT1_ISR:
	RET
T1_ISR:
	RET
UART_ISR:
	RET

DELAY:	MOV	R5,#20	;R5*20 mS
D1:     MOV	R6,#40
D2:     MOV	R7,#249
	DJNZ	R7,$
 	DJNZ	R6,D2
  	DJNZ	R5,D1
   	RET
	END